﻿Imports System.Data.SqlClient
Public Class frmActualizarUsuario

    Private Sub frmActualizarUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'LabCDMDataSet.Usuario' Puede moverla o quitarla según sea necesario.
        Me.UsuarioTableAdapter.Fill(Me.LabCDMDataSet.Usuario)

    End Sub

    Private Async Sub btnFiltrar_Click(sender As Object, e As EventArgs) Handles btnFiltrar.Click
        Try
            If varConexion.State = ConnectionState.Open Then
                varConexion.Close()
            End If
            Await varConexion.OpenAsync()
            Dim sqlFiltro As String = String.Format("SELECT * FROM Usuario WHERE Codigo_Usuario = '{0}'", CInt(Me.cboFiltroUsuario.EditValue))
            Dim cmd As New SqlCommand(sqlFiltro, varConexion)
            Dim reader As SqlDataReader = Await cmd.ExecuteReaderAsync()

            If Await reader.ReadAsync() Then
                Me.txtNombres.EditValue = reader.Item("Nombres")
                Me.txtApellidos.EditValue = reader.Item("Apellidos")
                Me.txtNombreUsuario.EditValue = reader.Item("Nombre_Usuario")
                Me.txtContraseña.EditValue = reader.Item("Clave")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Dispose()
        Me.Close()
    End Sub

    Private Sub btnActualizar_Click(sender As Object, e As EventArgs) Handles btnActualizar.Click
        Me.UsuarioTableAdapter.SP_ActualizarUsuario(Me.txtNombreUsuario.EditValue.ToString, Me.txtContraseña.EditValue.ToString, Me.txtNombres.EditValue.ToString, Me.txtApellidos.EditValue.ToString, CInt(Me.cboFiltroUsuario.EditValue))
        MessageBox.Show("Se ha acutalizado correctamente la información del usuario.", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)

        Me.Dispose()
        Me.Close()
    End Sub
End Class